home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / disk / jukebox2.lha / JukeBox_2.1 / bwd.jb < prev    next >
Text File  |  1993-01-29  |  249b  |  16 lines

  1. /* skip back to previous track */
  2. /* (c) copyright 1992,93 by F.J. Reichert */
  3.  
  4. options results;
  5. current track;
  6. if result ~= 0 then do;
  7.     toset = result - 1;
  8.     if toset > 0 then do
  9.         set track toset;
  10.     end;
  11.     else do
  12.         set track 1;
  13.     end;
  14. end;
  15. exit(0);    
  16.